home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / UTILITIE / DOS_TEX.ZIP / KS_MACRO.TEX < prev    next >
Text File  |  1993-07-15  |  863b  |  28 lines
  1. \font\sc=cmr8
  2. \tenrm
  3.  
  4. \newcount\sectc \newcount\chapc
  5. \newcount\linec \newcount\Clinec
  6. \chapc=0 \sectc=1
  7. \def\strutdepth{\dp\strutbox}
  8. \def\noheightchar#1{\vtop to \strutdepth
  9.     {\baselineskip\strutdepth
  10.     \vss\llap{#1}\null}}
  11. \def\noheightrightchar#1{\vtop to \strutdepth
  12.     {\baselineskip\strutdepth\vss\rlap{#1}\null}}
  13.  
  14. \def\chap{\sectc=1 \advance\chapc by 1
  15.     \strut\vadjust{\kern-\strutdepth\noheightchar{\hskip\leftskip \bf\number\chapc\ }}}
  16.  
  17. \def\sec{\advance\sectc by 1
  18.     \strut\vadjust{\kern-\strutdepth\noheightchar{\hskip\leftskip \sc\number\sectc\ }}}
  19.  
  20. \def\linesbyfive{\linec=-1 \Clinec=0
  21.     \everypar{\hangindent 2\parindent
  22.         \advance\linec by 1 \advance \Clinec by 1
  23.         \ifnum\Clinec=5 \Clinec=0
  24.         \strut\vadjust{\kern-\strutdepth\hskip \hsize plus \rightskip
  25.             \noheightrightchar{\sc\number\linec\ }}\fi}
  26.     }
  27. \def\poetrysize{\hsize=3.6in \rightskip=-2em}
  28.